#Exerccios 5 - Criao de Grficos
##Gustavo Agudelo. No. USP: 8893871

setwd("E:/Science/USP/Mestrado Fisiologia Geral_IB-USP/Disciplinas/Primeiro semestre_2014-1/Uso da Linguagem R para Anlise de Dados em Ecologia_2014-1/Exerccios R/Exerccios 5 - Criao de Grficos")

#5.1 Editando alguns parmetros grficos
esaligna <- read.table(file="esaligna.txt", header=T, sep=",", as.is=F)
str(esaligna)
head(esaligna)
x11()
par(mar=c(5,6,4,2))
par(cex.main=2)
par(cex.lab=1.5)
plot(esaligna$dap ~ esaligna$ht, xlab="Altura(m)", ylab="DAP(cm)", tcl=0.3, bty="l", main="Relao DAP-h")

#5.2 Dois grficos juntos
par(mfrow=c(1,2))
boxplot(esaligna$dap ~ esaligna$talhao, xlab="Talhao", ylab="DAP(cm)", par(tcl=0.3))
text(0.8, 22, "a")
media.dap <- tapply(esaligna$dap, INDEX=list(esaligna$talhao), FUN=mean)
media.dap
sd.dap <- tapply(esaligna$dap, INDEX=list(esaligna$talhao), FUN=sd)
sd.dap
esaligna$talhao <- as.factor(esaligna$talhao)
class(esaligna$talhao)
plot(media.dap, xlab="Talhao", ylab="DAP(cm)", xaxt="n", xlim=c(0,7), ylim=c(6,23), tcl=0.3, pch=16)
axis(side=1, at=c(seq(1:6)), labels=c("16", "17", "18", "22", "23", "32"))
lim.sup <- media.dap+sd.dap
lim.sup
lim.inf <- media.dap-sd.dap
lim.inf
segments(x0=c(seq(1:6)), y0=c(lim.inf), x1=c(seq(1:6)), y1=c(lim.sup))
text(0.8, 22, "b")

#5.3 Adivinhando o cdigo
cdigo5.3 <- read.table(file="cdigo5.3.txt", header=T, sep=",")
cdigo5.3
str(cdigo5.3)
cdigo5.3$y2 <- as.factor(cdigo5.3$y2)
class(cdigo5.3$y2)
par(mfrow=c(1,2))
model1 <- lm(cdigo5.3$y1 ~ cdigo5.3$x1)
plot(cdigo5.3$y1 ~ cdigo5.3$x1, xlab="Log(Patch size)(ha)", ylab="Euclidean distances", xlim=c(0.5,2.5), ylim=c(0.0,3.0), tcl=0.3, bty="l", pch=17)
abline(model1, lwd=2)
text(2.5, 3, "a")

boxplot(cdigo5.3$x2 ~ cdigo5.3$y2, xlab="", ylab="", xlim=c(0.5, 6.5), ylim=c(0.0,3.0), xaxt="n", par(tcl=0.3), par(bty="l"))
axis(side=1, at=c(seq(1:6)), labels=c("Small", "Medium Edge", "Medium Interior", "Large Edge", "Large Interior", "Control"))
text(1,3, "*")
text(2,3, "*")
text(3,3, "**")
text(4,3, "*")
text(5,3, "***")
text(6.5, 3, "b")











